home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Compression / Opener / Source / test.hqx / Lone Ranger / stack_-1.xml < prev   
Extensible Markup Language  |  1991-07-09  |  3KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2858</cardID>
  8.     <listID>4159</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on closeStacklock screenif short name of button id 13 = "Hide File Creators"then send mouseUp to button id 13hide button "Show File Creators"hide card field "Help"hide card field "Help2"hide button "More"hide card field "About"unlock screen with dissolvepass closeStackend closeStackfunction t xget offset("'",x)+1if it = 1 then return xelseput char it to number of chars of x of x into xget offset("'",x)-1return char 1 to it of xend ifend tfunction beforeStr source,targetget offset(target,source)if it = 0then return sourceelse return char 1 to it-1 of Sourceend beforeStron playglobal makeNoise, setItif makeNoise thenif not setIt then put false into makeNoisepass playend ifend playfunction HitTest where, whatif what = "" or what = "btn" thenrepeat with i = the number of cd btns down to 1if where is within rect of cd btn i thenif visible of cd btn i and name of cd btn i íÉ© name of targetthen return "cd btn id " & the id of cd btn iend ifend repeatrepeat with i = the number of bg btns down to 1if where is within rect of bg btn i thenif visible of bg btn i and name of bg btn i íÉ© name of targetthen return " bg btn id "& the id of bg btn iend ifend repeatend ifif what = "" or what = "fld" thenrepeat with i = the number of cd flds down to 1if where is within rect of cd fld i thenif visible of cd fld i and name of cd fld i íÉ© name of targetthen return "cd fld id " & the id of cd fld iend ifend repeatrepeat with i = the number of bg flds down to 1if where is within rect of bg fld i thenif visible of bg fld i and name of bg fld i íÉ© name of targetthen return " bg fld id "& the id of bg fld iend ifend repeatend ifreturn ""end HitTestfunction cardNum x-- This returns the card number of a card field named x-- where x is case-sensitive.  There isní Ût any error checking-- as it is assumed that there are always correctly named fields.put number of chars of x into nput false into foundItput "" into bobrepeat with i = 1 to number of card fieldsget short name of cd fld iif number of chars of it = n thenput true into foundItrepeat with j = 1 to nif charToNum(char j of x) íÉ© charToNum(char j of it) thenput false into foundItexit repeatend ifend repeatput i into bobif foundIt then exit repeatend ifend repeatreturn bobend cardNum</script>
  17.     <background id="2777" file="background_2777.xml" name="" />
  18.     <card id="2858" file="card_2858.xml" marked="false" name="" owner="2777" />
  19. </stack>
  20.